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1b-Se0-1984 02:21:26 YAtat1 Btisg=32_v4.0-742 
MODULE GETREQ MTDENT = (Bh S538) e 


BEGIN 


1 
LRA REAR AAR AAEEAAAAARA ARERR EEE AEA AAT A AAA EA AERAEAA ARERR 
'@ * 
's COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
~ ALL RIGHTS RESERVED. * 
'® oy 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 
w 
t 
* 
te 
te 
7 
* 
® 
* 
© 


'® TRANSFERRED. 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: ppeokat iin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


YR RARER AREA AREER EERE AERA AAA AAA EEE ATE AAA AAA EERE AEEEE 


soe 

; FACILITY: MTAACP 

ABSTRACT: 

i This routine gets the next 1/0 request from the ACP queue. 

! If no requests are queued, it hibernates. When all its work is 

complete, it deletes itself. 

ENVIRONMENT : 

i Starlet operating system, including privileged system services 

} and internal exec routines. This routine must be called 

in kernel mode. 

leo 
AUTHOR: D. H. GILLESPIE, CREATION DATE: 11-MAY-1977 17:26 
MODIFIED BY: 


vO3-001 MMD0161 Meg Dumont 26-Apr-1983 9:36 
Add references and setup of the HDR4 Label. 


V02-006 DMW00012 David Michael Walp 14-Mar-1981 


vO4~600 
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1b-5e -1984 02:21: AX-11 Bliss-32 V4.0-74 Page 
1 ~3007 138% 95:21:98 MTAACP’ SRE IGE FREG. O32 04 . as 
Added routine GET_CCB to find the address of the channel 
control block. Use the routine to find the CCB. 


V02-005 REFORMAT Maria del C. Nasr 30-Jun-1980 


1 

i] 

i] 

' 

' 

! A0004 MCN0003 Maria del C. Nasr 25-Sep-79 16:37 
Add HDR3 processing 

A0003 $PR24947 Maria del C. Nasr 04-Sep-79 10:40 
; 

' 


Fixed bug to allow only one file to be accessed at any 
one time on a magtape. 


LIBRARY 'SYSSLIBRARY:LIB.L32'; 
REQUIRE ‘SRCS$:MTADEF .B32'; 
FORWARD ROUTINE 

GET 


get the channel control block 
exec mode get request 
kernel mode get request 


GET_ : LSGET_REQ, 

GET_REQUEST : COMMOR_CALL; 

EXTERNAL ROUTINE 
DEALLOCATE, ' deallocate ayetes space 
CHECK_MAIL : COMMON_CALL, check for mail from operator 


K ! lock i/o database mutex 
SYSSRIBER =: ADDRESSING_MODE (ABSOLUTE), 


rt 
o 
oO 
—“~4 oO 
ozo 
So 
@ 
.s 


UNLOCK_I0DB; ! unlock i/o databas mutex 
EXTERNAL 

DISK_UCB : REF BBLOCK, ! UCB of device sys$disk 

10_CRANNEL ' i/o channel number 

MATL_CHANNEL; ! mailbox channel number 


<a 
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ROUTINE GET_REQUEST : COMMON_CALL = 


1+ 


FUNCTIONAL DESCRIPTION: 
This routine gets the next i/o request from the ACP queue. 
If no more requests, it checks if there are any volumes oerue 
serviced by the ACP. If there are none, prepare to delete itself. 


i CALLING SEQUENCE: 


GET_REQUEST (), called in kernel_mode 


i INPUT PARAMETERS: 
none 


: IMPLICIT INPUTS 
Qu 


EVE_HEAD: address of ACP queue block 
IO_CHANNEL: i/o channel number 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
CURRENT_UCB: address of UCB of request 
CURRENT_VCB: address of vcb of request 
CURRENT_WCB: window of file if accessed 
HDR1: address of hdri in virtual page 


HDR2: address of hdr2 in virtual page 
HDR3: address of hdr3 in virtual page 
HDR4: address of hdr4 in virtual page 


ROUTINE VALUE: 
address of request i/o packet 


SIDE EFFECTS: 
1/0 channel assigned to device of request 


Result string length set to zero and result string cleared 
Disable write back of channel window 


BEGIN 
EXTERNAL REGISTER 
COMMON : 


: This register forces REMQUE to be executed in one instruction 


REGISTER 
QUEVE_POINTER : REF BBLOCK; 

EXTERNAL 
CURRENT_UCB : REF BBLOCK, ! address of current UCB 
CURRENT_WCB : REF BBLOCK, ' address of file window 
HDR1 : REF BBLOCK, ! address of hdri label 
HDR2 : REF BBLOCK, ! address of hdr2 label 


———__—_———_ 


15 
ibese -1984 :21: AX-11 Bliss-32 V4.0-74 Page 4 
12-8 08-1 3b 95:21:28 MTAACP.SRCIGETREG.B32; . (2) 

; 136 ; 4 HDR3 : REF BBLOCK, ' address of hdr3 Label 
+. 5 HDR4 : REF BBLOCK, ! address of hdr4 Label 
3; 6154 5 § IOCSGL_AQBLIST : REF BBLOCK ADDRESSING_MODE (ABSOLUTE), 
; 155 5 QUEUE READ : REF BBLOCK, ' A queue List head 
; : 8 05 8 SCHSGC_CURPCB * REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
: 158 0840 LOCAL 
; 159 541 : REF BBLOCK, ! pointer to ccb of i/o channel 
$ 199 b2%§ PACKET : REF BBLOCK; ! address of new i/o packet 
; 166 st Attempt to dequeue a packet. 
3 6164 278 
3: 165 054 WHILE 1 
: 166 0548 bo 
: 167 0549 BEGIN 
; 198 B28 QUEUVE_POINTER = .QUEUE_HEAD; 
: 170 B226 IF NOT REMQUE(.QUEUE_POINTERCAQB$L_ACPQFL], PACKET) 
s 71 055 THEN 
3 76 0554 
ar 0555 ' check that structures are valid 
3 174 0556 H 
s 75 0557 4 BEGIN 
; 176 g228 4 
3 177 559 4 LOCAL 
: 178 0560 4 VPAGE : REF BBLOCK; 
3; 179 0561 4 
: 180 b20¢ 4 IF .PACKETCIRP$B_TYPE) NEQ DYNSC_IRP 
: «181 0563 4 TH 
3 1s¢ 0564 4 BUG_CHECK (NOTIRPAQB); 
:; 18 0565 4 
4 136 B28 Q CURRENT_UCB = .PACKETCIRPSL_UCB); 
: 186 0568 4 IF .CURRENT_UCBCUCBS$B_TYPE] NEQ DYNSC_UCB 
: 188 0570 4 BUG_CHECK(NOTUCBIRP); 
3; 189 571 4 
: Hb b2¢ 2 CURRENT_VCB = .CURRENT_UCBCUCBSL_VCB); 
F 19@ 0574 4 IF .CURRENT_VCBLVCB$B_TYPE) NEQ DYNSC_VCB 
F 194 0376 4 BUG_CHECK(NOTVCBUCB) ; 
: 196 bae8 4 ! If the virtual page forward Link in the VCB does not point to 
3: 197 0579 4 ! itself, it means there is a page allocated to this volume. Get 
3 138 3280 ? } the address, verify the type, and set the header pointers. 
: 00 38 4 if -CURRENT_VCBCVCBSL_VPFL] NEQ CURRENT_VCBCVCBSL_VPFLJ 
; 201 5 4 THEN 
; 4 584 BEGIN 
3 B27 3 5 VPAGE = .CURRENT_VCBCVCBSL_VPFLI; 
: 205 3 IF .VPAGECVVP$B_TYPE] NEQ VVP_TYPE 
; 0 335 BUG_ CHECK (NOTVVPVCB) ; 
: 208 590 


mM 15 
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591 HDR1 = VPAGELVVP$T_HDR1); 

286 HDR2 = VPAGELVVPST_HDR2J; 

59 HDRS = VPAGELVVPS$T_HDR3J; 

594 HDR4 = VPAGELVVPST-HDR4J; 
0396 END; 

597 ! If the volume is blocked for rewind or volume mount, put all 
Beg8 } requests other than cancel on the stalled i/o queue. 
0600 : 

$8) IF NOT (.CURRENT_VCBCVCBSV_WAIREWIND] OR .CURRENT_VCBLVCB$V_WAIMOUVOL) 
£08 EXITLOOP; ' volume is not blocked 
Bo? IF .PACKETCIRPSV_FCODE] EQL 10$_ACPCONTROL 


NOT .PACKETCIRPS$V_VIRTUALJ 
EXITLOOP; ! Let cancel thru 
insert in stalled i/o queue 
INSQUE ( .PACKET, . VPAGECVVPSL_STALLIOBLJ); 
ELSE 
If the REMQUE failed and the mount count in the AQB is zero, this 
ACP is potentially idle. Interlock the i/o database and check 
the queue and the gount again. If the ACP is no longer idle, 
roceed as if noth ng had happended. If it still is, unhook the 
QB from the system AQB list. Once unhooked, the ACP can no 
longer be found by anyone. Change the process uic so that a new 
ACP will be successfully created by mount. Return to exec mode 
GET_REQUEST to wait for outstanding i/o and delete the process. 
BEGIN 


AF, , CUEUE _POINTERLARSSR AUT CHT? EQL 0 
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BEGIN 
; LOCK_10DB(); ! Lock i/o data base mutex 
3) IF .QUEVE_POINTERCAQBSB_MNTCNT) EQL 0 
38 32 , ggg? EE _POINTEREAREE, ACPOFLD EQL QUEVE_POINTERCAQBSL_ACPOQFLJ 
55 4 BEGIN 
56 8 
57 39 LOCAL 
28 rs P : REF BBLOCK; 
o ¢ P = .JOCSGL_AQBLIST; 
6¢ eee IF .P EQL .QUEVE_POINTER 
64 6 IOC$GL_AQBLIST = .QUEUVE_POINTERCAQBSL_LINK] 
65 ELSE 
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BEGIN 
UNTIL .PCAQBSL_LINK] FQL .QUEUE_POINTER 
P = .PCAQBSL_LINK]; 
ye citeaae = .QUEVE_POINTERCAQBSL_LINKI; 
onal pe Agron pene of process PCB so the create ACP in 
get a duplicate process error. 


SCHSGL ~CURPCBLPCBSu _GRP] = .SCHSGL_CURPCBCPCBSW_GRP) + 1; 
UNLOCK~10DB() ; 


ELSE 


UNLOCK_10DB(); 
END; ! end of if no more volumes mounted 
RETURN 0; ! no packet 
END; ! end of if packet found 


END; 
} The current volume may not be on the unit indicated in the users channel 
BEGIN 
LOCAL 

UCBLST : REF re CLONG], ! pointer to UCBLst in RVT 

RVT : REF BBLOCK; ! relative volume table 
RVT = .CURRENT_VCBCVCBSL_RVTI; 
IF _ .RVTCRVTSB_TYPE] NEQ DYNSC_RVT 

BUG_CHECK(NOTRVTVCB); 


UCBLST = RVTCRVT$L_UCBLST); 
CURR ENT_UCB = .UCBCSTC.CURRENT_VCBLVCBSW_RVNJJ; 


end of while loop 


IF_ .CURRENT_UCBCUCB$B_TYPE] NEQ DYNSC_UCB 
BUG_ CHECK (NOTUCBRVT) ; 


CCB = GET_CCB ( .10_ CHANNEL ! point to ccb 

CCBCCCB$L_UC8) = .CORRENT etcB: i and assign it by stuffing UCB 
' 

i 


Get the WCB address if there is a file open on the channel. The window 
pointer will not be val this is a cancel io which is an ACP control 
function with the ak bit gtk 


CURRENT_WCB = .CURRENT_VCBCVCBS$L_WCB); 
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Sep-1984 AXx-11 Bi lege 
iESeect9Be 03:21:26 yanett otis 
If low order bit is set, then deaccess is pending. Ignore window. 
(PACKETCIRPSL_WINDJ)<0,1> 


CURRENT_WCB = 0; 
address for window is long word aligned 


If . 
THEN 


if z (PACKETCIRPSL WIND) <1 .2> NEQ 0 
BUG_ CHECK (BADWCBPT) ; 
IF .CURRENT_WCB NEQ 0 
THEN 
BEGIN 
i _ CURRENT WCBLUCESS_ TYPE NEQ DYNSC_WCB 
BUG_CHECK(NOTWCBIRP) ; 
c p CURRENT _UCBCUCESY _NOTF CP 
BUG_CHECK{(NOTFCPWCB); 
END; 
! Prevent write-back of WCB. Set result string length equal to zero. 
Clear result string buffer. 
IF_ .PACKETCIRPS$V_COMPLX] 
THEN 
BEGIN 


LOCAL 
ABD : REF BBLOCKVECTOR C, ABDSC_LENGTH); 


ABD = .BBLOCKC.PACKETCIRPSL ll AIBSL_DESCRIPT); 
ABDLABDS( WINDOW, ABDS$W_COURT) 


o -ABDCABDSC_RESL, ABD$W_COUNT] GEQ 2 


(.ABDCABDSC_RESL, ABDSW_TEXT] + ABDCABDSC_RESL, ABD$W_TEXT] + 1)<0,16> = 0; 


CHSFILL(O, .ABDCABDSC_RES, ABDSW_ COUNT) 
-ABDCABDSC_RES, ABDSW_TEXT] * ABDCABDSC RES, ABDSW_TEXT] + 1); 


unction, 


——m— 
z 
~— oC 


f there is no buffer packet, the function must be an ACP control 


IF (.PACKETCIRPSV_FCODE) GTRU IO$_LOGICAL AND .PACKETCIRPSV_FCODE] NEQ I1O0$_ACPCONTROL) 


aE eet ens Span Spa § pra ete ee ae ele igi 


GETREQ 1§- -Sep-1 AX-11 Bliss-32 V4.0-74 p 
Feb00 1erep-1 38s 98:24:28 = FANE AL Bk iss 32 VG 05048 het: 
: 380 768 3 OR 

: 81 768 i (.PACKETCIRPSV_FCODE] EQL 10$_ACPCONTROL AND .PACKETCIRPSV_VIRTUALJ) 

: A 165 BUG _ CHECK (NOBUFPCKT); 

: RS O78? END; 

: He $7e8 RETURN .PACKET 

: 388 0770 : : 

; 389 0771 «1 END; ! end of routine 
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G 
-EXTRN BUGS_ Bo BUGS_NOBUF PCKT 
.PSECT $CODES,NOWRT,2 


O3FC 00000 GET_REQUEST: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9 


59 00006 CF 9€ 00002 MOVAB CURRENT WCB, R9 ; 
58 000000006 9F 9€ 00007 MOVAB ay lOCsGL AQBLIST, R8 ; 
57 00006 CF 9E 90006 MOVAB CUR RENT R?7 : 
52 00006 CF 00 00013 1$: MOVL E_HEAD, QUEUE_POINTER ; 
56 00 B82 CF 00018 REMQUE SO CQUEUE _POINTER)> PACKET : 
7D 1D 000%C BVS 9$ ; 

OA OA AB 91 O01 CMPB JOCPACKET) , #10 F 
04 13 000 BEQL 2 : 

FEFF 00024 BUGW F 

0000* 00026 .WORD <BUG$_NOTIRPAQB!4> ; 

7 1¢ ag D8 3 8 2$ MOVL 28( Pater? CURRENT_UCB : 
0 67 D C MOVL CUR RENT ucB, RO : 

10 0A AO 74 00 CMPB =: 10(RO),, “Hie : 
04 13 000 BEQL © 3 ; 

4 00 BUGW 3 

90 * 000 .WORD <BUG$ NOTUCBIRP!4> : 

50 6 00 0039 3$ MOVL ¢ RR R ; 
58 34 AO p 99 C MOVL (RO), ~CURRENT_VCB : 
11 0A AB 91 00040 CMPB sé CURRENT _VCB)> #17 ; 
04 13 00044 BEQL «6s 4$ F 

FEFF ug BUGW ; 

00 gs 4 .WORD <BUG$_NOTVCBUCB! 4> ; 

20 ; AB f 04A 4$ MOVAB 60(CURRENT_VCB), RO : 
0 C AB D1 O004E CMPL 60(CURRENT“VCB). RO F 


D 16 
GETREQ 16-Sep-1984 1: AX-11 Bliss-32 V4.0-742 
V 00 12-88-1382 98 24:28 MTAACP.SRCIGETREG.B32:1 
28 13 00052 BEQL 6 6$ 
39 * 3 AB 06 4 MOVL 99 (CURRENT. VCB), VPAGE 
0 A Ad } 8 CMPB  —s«- 10 VPAGE) , ~# 
OFEFF O00sE Boeu 
9000s 096 «WORD  <BUG$_NOTVVPVCB!4> 
00006 CF 0c Ad 9E 00062 S$ MOVAB 12(ROJ, HDR1 
90006 CF 5C AO 9E 0006 MOVAB 92(RO), HDR2 
0006 CF OOAC CO 9E OO6E MOVAB 1 g (ROS, HDR3 
os Oe eS OB BG Ooore os BBS #3, 11 (CURRENT_VCB), 78 
5D 0B AB 02 E1 081 BBC aa, 11 CCURRENT > VCB) « 15$ 
38 20 Ab 06 : FD 086 7$ CMBZV #0, #6, 32(PACRET), #56 
50 2A Ab §? 1 OO8E BBC #4, 42(PACKET), 15$ 
O1A8 ~=—0 6 OE 0093 8$: INSQUE (PACKET), @424(VPAGE) 
HE $98 og, 
0B A2 95.0009 | TSTB —«- 11 (QUEUE_POINTER) 
3 12 000A0 BNEQ 14$ 
53 D6 O00A2 INCL  R3 
—s 9 8 Bs GASES ARs iggt.ton 
52 62 D1 OOOAC CMPL (QUEUE_POINTER), QUEUE_POINTER 
2A if} OOOAF BNEQ 13$ 
50 68 D0 00081 MOVL IOC$GL_AQBLIST, P 
¥ 36 $2 ooo? Ch Hg CUED POINTER 
68 10 Ae 00 90089 MOVL 18CQUEUE_POINTER) 1OC$GL_AQBLIST 
52 10 AO D1 OOOBF 10$ CMPL  16(P), QUEUE_POINTER 
06 13 000C3 BEQL 118 
#3 OTe Fe bo8e8 «ge aes 
10 AO 10 A2 DO 000CB 11$:  MOVL  16(QUEUE_POINTER), 16(P) 
50 000000006 9F 00 00009 12$:  MOVL  a@ASCHSGL~CURPCB, RO 
OOBE CO B6 00007 INCW 190(RO) 
00006 CF 00 FB 000DB 13$: CALLS #0, UNLOCK_10DB 
00B8 31 O0E0 14$:  BRW ers 
50 20 AB DO O00E3 15$:  MOVL 2(CURRENT_VCB), RVT 
OE 0A AO 91 000E7 CMPB  =s« 1O(RVT), #14 
ON ere OOOED ot ya 
9000s OOEF WORD <BuGs NOTRVTVCB!4> 
30 OE AB f ite —_ MOVZEL STEN kent ven R1 
67 6041 DO 000F9 MOVL (UCBLST)CRTJ, CURRENT_UCB 
50 67 b0 OOFD MOVL ¢ RRENT _UCB, RO 
10 0A Ad 91 00100 CMPB i9cR >, "#16 
ors a rh 
0000+ 001 «WORD <BUGS$_NOTUCBRVT!4> 
00006 CF DD 0010A 17$: | PUSHL 10_CHANNE 
—— 60 9) 4 198 movt TURRET “Ueo (CCB) 
69 38 AB DO 00116 MOVL SBCCURRENT cB) CURRENT _WCB 
2 18 A6 E9 OO11A BLBC 4(PACKET)> 18$ 


AO 


2F 
38 
38 


; Routine Size: 
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0 
01 A241 


SCODES + 0000 
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3c 18:05:25 — UnfaadpesneScetata:o30;1 


RRENT WCB 
(PACKET), #6 

$ 
UG$_BADWCBPT! 4> 


ioe RO 
RO), #18 
20$ 


<BUGS$ _NOTWCBIRP! 4> 
CURREAT WCB, 

#2, 11(RO), 21$ 
<BUG$_NOTFCPWCB! 4> 


#3, 42(PACKET), 238 
@44(PACKET), ABD 


i, #6, 32(PACKET), #47 
#0, #6, 32(PACKET), #56 
#0, #6, 32(PACKET), #56 
#4, 42(PACKET), 26$ 


<BUG$ _NOBUFPCKT! 4> 
PACKET, RO 


RO 
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H Tt} ! GLOBAL ROUTINE GET_REQ : LSGET_REQ = 

; 775 «1 «S44 

3 rte 1! 

; 0777 1 ! FUNCTIONAL DESCRIPTION: 

; 0778 1! This routine gets a request from the io queue. If there are no 
3 0779 1! entries, it then enables ast's for exec mode and hibernates. 
; 0780 1! If an ast is delivered, then a process may be unblock and continued 
3 878) i } from point of block. 

3 $788 1 ! CALLING SEQUENCE: 

3 Ores : } GET_REQ(), exec mode 

3 07 $ 1 ! INPUT PARAMETERS: 

3 0787 1! none 

; 0788 1! 

3 0789 1 ! IMPLICIT INPUTS: 

; 0790 1! none 

: 410 0791 1! 

; 4411 0792 1 ! OUTPUT PARAMETERS: 

; 412 0793 1! none 

3; 413 0794 1! 

3 414 0795 1 ! IMPLICIT OUTPUTS: 

> 415 0796 1! none 

: 416 0797 1! 

; 417 0798 1 ! ROUTINE VALUE: 

: 418 0799 1! Address of request i/o packet 

: 419 0800 1! 

: 420 0801 1 ! SIDE EFFECTS: 

: 421 0802 1! none 

; $56 0803 1! 

: 42 0804 1 !-- 

; 424 0805 1 

; ret 0806 BEGIN 

: 426 0807 

: 427 0808 EXTERNAL REGISTER 

: 428 0809 2 COMMON ; 

; $$2 0810 2 

: 430 0811 BIND 

3: «431 pats SECONDS = UPLIT (-70000000, -1); 

F $36 081 

; 43 0814 2 EXTERNAL 

: $38 te 2 QUEUE _HEAD : REF BBLOCK; ! head of ACP queue 
; 4 O81? LOCAL 

3; 43 beis PACKET; ! packet address 

3 b8 0 REGISTER 

: OB 1 QUEUE _POINTER : REF BBLOCK; 

3 08 : WHILE 1 

3 824 DO 

5 5 BEGIN 

3 § SSETAST(ENBFLG = 0); ! disable ast's 

; , PACKET = KERNEL_CALL(GET_REQUEST); ' get request off queue 
; af 9 IF .PACKET NEQ 0 
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+ 
S 
~o 


AOUMVMMNMIUIVIVAYT 
WO 


PS at ot ot tt tt 
=OODNANE 


46 


ss 


GOOOCGCCCCOCOOOOOOCOCOOOOOooOO: 


oOooooo 


0871 


Qo 00 09 C9 Co C9 OD CD CD Co. 
CONN 
—SODONOULSWN Oo 


Sooooocoooo 


=PIPNINMININIWAE BE PWS SSS SENNA Nt BS BB BEB EWAN 


Sep-1 AX-11 wii 
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HEN 

RETURN .PACKET; ! got a request to process 
! if there are no volumes to pory "ee and the ACP's queue is empty, check 
i if all 1/0 is done poner rewinds. Wait for all 1/0 before deleting 
} process. If the ACP still has volumes/requests to service, hibernate. 
QUEVE_POINTER = .QUEUE_HEAD; 
IF QUEUE POINTERLAGESE _ANTCHT) EQL 0 

- QUEUE _POINTERCAQBSL_ACPQFL] EQL QUEUVE_POINTERCAQBSL_ACPOQFLJ 
BEGIN 


LOCAL 
CCB : REF BBLOCK; 


WHILE 1 
dO 
BEGIN 
CCB = KERNEL_CALL ( GET_CCB, .IO_CHANNEL ); 
IF .CCBCCCBSW_I0C] EQL 0 
EXITLOOP; 


IF SSETIMR(EFN = TIMEFN, DAYTIM = SECONDS) 
SWAITFR(EFN = TIMEFN); 


END; ! end of short while loop 

gear cease, UCcBI = .DISK_UCB; 

SDASSGN(CRAN = .MAIL_CRANNEL); 

SDA ASSEN CHAN -10_CRANNEL); 

KERNEL CALL (DEALLOCATE E, .QUEUE_POINTER); 

SDELPRE(); 

END 
E 

BEGIN 

CHECK _MAIL(); 
SSETAST(ENBFLG = 1); ! enable before hibernate 
SYSSHIBER(); !' hibernate 

END; 

END; ! end of while loop 
RETURN 1; ' Never Execute 


but gets rid of info error 


oot -BLKB 2 
FFFFFFFF FBD3E280 OO1A0 P.AAA: .LONG -70000000, - 


end of routine 
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YAX=11 BL iss-32 V4.0-74 
MTAACP.SRCJGETREQ.B32; 
A 

ST, SYSS$SCMKRNL 

MR, SYSSWAITFR 

GN, SYSSDELPRC 
#°M<R2,R3,R4> 

#1, SYSS$SETAST 
-(§P) 

SP 

GET _REQUEST 

#3, “@#SYSSCMKRNL 
; PACKET 
PACKET, RO 

7$ 


QUEUE HEAD, QUEUE_POINTER 
11 (QUEUE_POINTER) 


(QUEUVE_POINTER), QUEUE_POINTER 
10_ CHANNEL 
#1 


GET_CCB 

#4, @#SYSSCMKRNL 
RO, CCB 

10(CCB) 

4$ 

=(SP) 

_ 

& 


#4, SYSSSETIMR 
RO, 3$ 


2 
a. SYSSWAITFR 
DISK_UCB, (CCB) 
MAIL ~ CHANNEL 

#1, SYSSDASSGN 
#17 SYSSDASSGN 
QUEUE _POINTER 

#1 

SP 

DEALLOCATE 

#4, a#SYSSCMKRNL 
#2, SYSSDELPRC 
#0, CHECK_MAIL 


#1, SYSSSETAST 
#0. @A4SYSSHIBER 
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; Routine Size: 189 bytes, Routine Base: $CODES + O1A8 
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GLOBAL ROUTINE GET_CCB (CHANNEL) = 
i++ 


FUNCTIONAL DESCRIPTION: 


This routine returns the address of the channel control block 
associated with the given channel. 

i CALLING SEQUENCE: 

GET_CCB (ARG1) in kernel mode 


i INPUT PARAMETERS: 
ARG1: channel number 


i IMPLICIT INPUTS: 
NONE 


i] 

] 

4 

1 

' 

1 

1 

i] 

1 

i] 

' 

' 

1 

! QUTPUT PARAMETERS: 
NONE 

' IMPLICIT OUTPUTS: 
} NONE 

! ROUTINE VALUE: 
address of CCB 
' SIDE EFFECTS: 

} NONE 

i] 


BEGIN 


LINKAGE 

L_VERIF YCHAN = JSB (REGISTER = 0) : 
GLOBAL (CCB = 1) 
NOPRESERVE (2, 3, 4, 5); 


GLOBAL REGISTER 
ccB 1 : REF BBLOCK; ! CCB address returned 


LOCAL 
STATUS; ' status of system call 


EXTERNAL ROUTINE 

IOCSVERIFYCHAN : L_VERIFYCHAN ADDRESSING_MODE (ABSOLUTE); 
' exec routine to find CCB 

STATUS = IOCSVERIFYCHAN (.CHANNEL); 

THEN BUG_CHECK (INVCHAN, FATAL, ‘Invalid ACP channel number"); 


RETURN .CCB; 


li 


; 560 


3; Size: 
: Run "Tesi 

; Elapsed Time 

: Lines/CPU Min: 


0940 1 END; 


626 sede 5 + 10 data bytes 


ee 


oo —— 


-EXTRN IOCSVERIFYCHAN, BUG$_INVCHAN 
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end of routine GET_CCB 


OFFC 00000 ENTRY GFT .CCB. Save R2,R3,R4,R5,R6,R7,R8,R9,R10,= 
50 04 ac 00 80008 MOVL CHANNEL, RO 
000000006 9F 16 00006 JSB OA IOCSVERIFYCHAN 
4 50 €8 0000C BLBS STATUS, 1$ 
Aa OOOF BUGW 
0000* 00011 «WORD <BUGS$_INVCHAN! 4> 
50 51 DO 00013 1$: MOVL CCB, RO 
04 00016 RET 
; Routine Size: 23 bytes, Routine Base: $CODE$ + 0265 
; 561 0941 1 END 
3 362 0942 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 636 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
ee eee eee oe re ee Syabols -oc----- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 51 0 1000 00:01.9 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:GETREQG/OBJ=OBJ$:GETREQ MSRC$:GETREQ/UPDATE=(ENHS$:GETREQ) 
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